home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Programming / Programming Languages / Yerk 3.64 ƒ / Asm source / operand < prev    next >
Encoding:
Text File  |  1986-03-20  |  1.1 KB  |  77 lines  |  [TEXT/ttxt]
  1. \ Class Operand                     Reese Warner                    4/85
  2. \  03/07/86  GDC  fixed PC modes (9 & 10)
  3.  
  4. :CLASS operand  <SUPER object
  5.  
  6.     var value
  7.     int reg        \ register
  8.     int mode       \ operand mode
  9.     int auxType    \ index type (A/D)
  10.     int auxReg     \ index register
  11.     int auxSize    \ index size (word or long)
  12.     int pcmode     \ for use with PC modes
  13.  
  14.     :M A/D:
  15.         get: auxType
  16.     ;M
  17.  
  18.     :M SETA/D:
  19.         put: auxType
  20.     ;M
  21.  
  22.     :M AUXILSIZE:
  23.         get: auxSize
  24.     ;M
  25.  
  26.     :M SETAUXSIZE:
  27.         put: auxSize
  28.     ;M
  29.  
  30.     :M SETAUXREG:
  31.         put: auxReg
  32.     ;M
  33.  
  34.     :M AUXREG:
  35.         get: auxReg
  36.     ;M
  37.  
  38.     :M SETREG:
  39.         put: reg
  40.     ;M
  41.  
  42.     :M SETVAL:
  43.         put: value
  44.     ;M
  45.  
  46.     :M SETMODE:
  47.         put: mode
  48.     ;M 
  49.  
  50.     :M MODE:
  51.         get: mode
  52.     ;M
  53.  
  54.     :M VALUE:
  55.         get: value
  56.     ;M
  57.  
  58.     :M REG:
  59.         get: reg
  60.     ;M
  61.  
  62.     :M EA:
  63.         mode: self 7 min 0 max 3 << reg: self or
  64.     ;M
  65.  
  66.     :M GETPCMODE:
  67.         get: pcmode
  68.     ;M
  69.  
  70.     :M SETPCMODE:
  71.         put: pcmode
  72.     ;M
  73.  
  74. ;CLASS
  75. operand op1
  76. operand op2
  77.